#!/usr/bin/perl
#
while($line=<STDIN>) {
	chomp($line);
	($root,$gnp,$word) = split(/\s+/,$line);
	@w=split(//,$word);
	@r=split(//,$root);

	if(@w<@r) {
		$l = scalar(@w);
	}
	else {
		$l = scalar(@r);
	}

	my($i);
	for($i=0;$i<$l;$i++) {
		if($w[$i] ne $r[$i]) {
			$del = join('',@r[$i..$#r]);
			$add = join('',@w[$i..$#w]);
			last;
		}	
	}

	print "$del\t$add\t$gnp\n";
	
}

